﻿Public Class masvstatus
    Private vstatusID = Nothing
    Private vstatusDesc = Nothing
    Private vStatusStatus = Nothing
    Private selectMasvstatus = "SELECT `vstatus` as 'รหัสประเภทลูกค้า', `vstatusdesc` as 'ประเภทลูกค้า',`status` as 'สถานะการเปิดใช้งาน' FROM masvstatus"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property vstatusID_ As Integer
        Get
            Return vstatusID
        End Get
        Set(value As Integer)
            vstatusID = value
        End Set
    End Property

    Property vstatusDesc_ As String
        Get
            Return vstatusDesc
        End Get
        Set(value As String)
            vstatusDesc = value
        End Set
    End Property

    Property vStatusStatus_ As Boolean
        Get
            Return vStatusStatus
        End Get
        Set(value As Boolean)
            If value = True Then
                vStatusStatus = 1
            Else
                vStatusStatus = 0
            End If
        End Set
    End Property

    Property selectMasvstatus_ As String
        Get
            Return selectMasvstatus
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMasvstatusData()
        If vstatusDesc <> "" Then
            Dim connect As CONDB = CONDB.NewConnection()
            connect = CONDB.NewConnection()

            If TypeOf vstatusDesc Is String Then
                If connect.GetTable("SELECT vstatusdesc FROM masvstatus WHERE vstatusdesc = '" & vstatusDesc & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลสถานะลูกค้านี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim vstatusID As Integer

                        vstatusID = connect.ExecuteScalar("INSERT INTO masvstatus (vstatusdesc, status) VALUES ('" & vstatusDesc & "', '" & vStatusStatus & "'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASVSTATUS (VSTATUS, VSTATUSDESC, STATUS) VALUES ('" & vstatusID & "', '" & vstatusDesc & "', '" & vStatusStatus & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลสถานะลูกค้าเรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีสถานะลูกค้านี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMasvstatusData()
        If vstatusID > 0 And vstatusDesc <> "" Then
            If TypeOf vstatusDesc Is String Then
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()

                    connect.ExecuteNonQuery("UPDATE masvstatus SET vstatusdesc = '" & vstatusDesc & "', status = '" & vStatusStatus & "' WHERE vstatus = '" & vstatusID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASVSTATUS SET VSTATUSDESC = '" & vstatusDesc & "', STATUS = '" & vStatusStatus & "' WHERE VSTATUS = '" & vstatusID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลสถานะลูกค้าเรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขสถานะลูกค้านี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try
                connect.Dispose()
                'connectlocal.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

End Class
